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abstract 


THE PDP-15 high speed PUNCH TEST IS DESIGNED TO TEST aNq VERIFY 
the operational status of the punch CONTROL logic# and the 
mechanical functions of the punch, the program is separated 
TN TmREE parts, the first part is a series of five tests on 
the punch control logic, part two is a series of nine Tests 
ON The punch itself, and part three is a read verification 
CHECK On the punched tape, provision is made to CONTINuOUSLV 
LOOP ON three of the six Punch control tests, and any one of the 
PUNCH Data tests, 

requirements 


a standard PDP-15 equipped WiTh a HjGH speed punch and high 
SPEED Reader. 

storage 

the PROGRAf occupies 4735 (OCTaD WORDS OF CORE MEMORY FROM 
location 0 TO 4735, 

preliminary programs 


the PDP-15 high speed BINARY LOADER MUST BE IN CORE MEMORY, 
loading prccedure 

a, place the binary tape in the reader, 

B, SET THE address SWITCHES TO 17700, 

C, PLACE BANK MODE SWITCH ON A 1, 

D, press I/O Reset, and then reao-in. 

E, aT the completion OF LOADING REMOVE THE TaPE FROM ThE READER, 

starting procedure 


CONTROL SWITCH settings 


all acs on a 0, 
starting addresses 


control locic Tests - 200, 
data check tests - 1000. 
VERIFY punch tape - 3400, 



restarting addresses 


restarting addresses for individual tests May be found in 
TABLE 2, appearing AT THE END OF THIS DOCUMENT. 

PROGRAM ACTION 


STARTING FROM 200, THE PROGRAM WILL EXECUTE CONTROL LOGIC 
TESTS 1 THROUGH 4 IN SEQUENCE USING THE IQT PSA, AND THEN REPEAT 
TESTS 2 THROUGH 4 USING THE lOT PSB. AFTER COMPLETING TEST 
4 THE message ’REMOVE TAPE' WILL BE TYPED OuT AND A HALT 
WILL OCCUR WITH the M0s 523, AT THIS POINT THE TAPE iS TO BE 
removed from the punch. PRESS CONTINUE AND ThE »N0-TAPE* 

LOGIC IS TESTED. IF THE 'NO-TaPE' LOGIC IS OK. A ’REPLACE 
TAPE' message is TYPED OUT AND THE PROGRAM WIlL HALT WITH 
THE M0=547, 

after The tape is replaced, press continue to execute the data 
CHECK tests. There are nine data tests in all. each punching 
A different pattern, as one test is completed, the next test 
IS automatically started, when test 9 is completed, blank 
leader is punched and the program Halts with the mo=2426, 

THE punched tape CAN THEN BE VERIFIED BY PLACING IT IN THE 
reader and pressing CONTINUE. IF NO ERRORS ARE FOUND A »DONE’ 
message IS typed out and the PROGRAM WILL MALT WITH THE 

M0=4427. press continue TO RESTART THE PUNCH DATA CHECKS, 



5. operating procedures 
operator action 

A, place the Tape in the reaOer, 

B, PLACE all ACS ON A 0, AND SET THE ADDRESS SWITCHES TO 17700, 

C, PLACE EANK MODE SWITCH ON A 1, 

D, PRESS I/O RESET, AND THEN READ-IN. 

E, after completion of load SET THE ADDRESS SWITCHES Tq 200. 

F, PRESS I/O reset, AND THEN START. IF NO ERRORS, THE 
the program will halt with mo = 523, 

G, REMOVE THE TAPE PROM THE PUNCH, 

H, press continue. if no errors, the program will halt WITH 

MO = 

I, PRESS continue. THE DATA CHECKS ARE THEN PERFORMED NEXT 
and the program will halt with the mo s 2426, 

J, remove the tape prom the punch and PLACE iT IN ThE READER 
TO VERIFY The Tape. 

K, PRESS continue. IF NO ERRORS ARE FOUND ThE PROGRAM WILL 
halt with The «o = 4427 , 

L, PRESS continue TO RESTART THE DATA CHECK TESTS, 



(5. CONT*0) 


data check tests 


ACS FUNCTICNS For each of tmE MnE tests ARE! 
ACS FuNiCTlON 


1(1) 'Scope: mode 

2(1) LOOP ON CURRENT TEST 

4-17 MAV BE used to vary RaTE OF PUNCHING 

ACS 1 ON A 1 WILL Cause the current test to be repeated 
until Stopped by pressing program stop, placing acs i 
ON A 0 WILL allow PROGRAM TO CONTINUE ON TO NEXT TEST 
after completing the present test. 

ACS 2 ON A 1 WILL CAUSE THE CURRENT TEST TO BE REPEATED 
until stopped WITH PROGRAM STOP, PLACING ACS 2 ON A 0 WHILE 
running will let THE PROGRAM GO ON TO THE NEXT TEST aFTeR 
completing the CURRENT ONE, 

VERIFY punch test 


ACS functions for Each or the nine read checks are* 

ruNcT 1 on 

0(2) halt after each error printout 

0(1) continue AFTER each ERROR PRINTOUT 

2(0) NORMAL READ 

2(1) REPEAT the CURRENT READ CHECK 

ACS 2 ON A 1 WILL CAUSE THE CURRENT READ CHECK TO BE REPEATED. 
for any one test to be repeated# PLACE the pattern to Be 
VERIFIED IN reader AND REFER TO THE STARTING LOCATIONS IN 
SECTION 10. 


ACS 



(5. '^W'T’D) 

operating I,N-STRUCTI0NS 


A, SET THE address SWITCHES TO 1000, 

B, PRESS I/O Reset, and then start. 

c. approximately 1-1/2 FT, OE LEADER WILL BE PUNCHED. THE 
leader is blank except for one FRAME OF ALL I’S, THIS 
frame is referred TO AS THE MARK CHARACTER. AND HAS 
nothing TO DO WITH THE INTERNAL OPERATION OF THE PROGRAM, 

0. THE PROGRAM WILL PUNCH EACH TEST IN SEQUENCE. 

E. when test 9 HAS FINISHED, BLANK LEADER IS PUNCHED AND 
THE PROGRAM WILL HALT WITH THE MO = 2426,. 

F. PLACE thc Punched tape in the reader and press continue 
to verify The tape. 

H. If NO ERR&RS THE PROGRAM WILL HALT WITH ThE MO * 4427, 

1. PRES-S CONTlHUf TO RESTART THE DATA CHECKS, 



ERRORS 


error halts 


ALL halts are described in table 1. 
error Printouts 


ANV data test error encountered will cause an error printout 
IN The roRPAT Shown below; 

test N0. good bad 

N XXX XXX 

where: N = TEST NUMBER <1 THROUGH 9) 

GOOD s WHAT THE DATA READ WaS EXPECTED TO BE 
bad a THE DATA AS READ 

pressing continue will allow program to CONTINUE, AC SW0 
ON A ALLOWS PROGRAM TO CONTINUE AFTER Re'^ORTING aN ERROR. 
also, NO-TAPE CONDITIONS WILL GIVE A PRINTOUT ThuSI 

’NO TAPE IN PUNCH’ 

THE ACS HAVE NO CONTROL OVER THIS PRINTOUT. THE PROGRAM HALTS 
and the TEST must BE RESTARTED, 

’NC mark CHAR’ 

THIS MESSAGE IS TYPED IF THE ALL I’S FRAME IS NOT READ 
WHEN the tape IS VERlFlEDi THIS COULD BE CAUSED BY THREE 
different SITUATIONS. EITHER THE READER IS NOT READING 
correctly. THE TEST TAPE WAS STARTED IN THE MIDDLE OF A 
TEST OR IF THE LEADER WAS EXCESSIVELY LONG. IN WHICH CASE 
PRESS CONTINUE TO RESTART THE VERIFICATION CHECK, 



RESTRICTIONS 


starting restrictions 


NONE . 

operating restrictions 


any device other than The reader, teletype, or punch must 0E 
turned off. to avoid unwanted interrupts, 

miscellaneous 


execution T iME 


IF LOOPING ON CONTROL LOGIC TESTS 2 THROUGH A, THE TIME PER 
PASS IS approximately 7 SEC, DATA CHECK TESTS 1 THROUGH 9 
WILL REQUIRE approximately 8 MIN. 

applications - control logic Tests 


SCOPE mode 


scope mode for any of THE CONTROL LOGIC TESTS MaY BE ENTERED 
by Placing ags i on a i after an error halt and pressing 
continue . 

restarting a TEST WITH ACS 1 ON A 1 WILL ALSO PROVIDE 'SCOPE 
MODE', the starting ADDRESS FOR EACH TEST AND THE PROCEDURE 
TO FOLLOW IS GIVEN BELOW. 



test 

# SCOPE lOT 

OPERATOR ACTION STAR? 

ing address 



PRESS I/O RESET. THEN 

200 


PSA 

start 

PRESS I/O RESET. THEN 

222 

2 

PSB 

start 

PLACE 700244 IN location 

224 

3 

PSA 

227. 

PLACE 700204 IN location 

300 

3 

PSB 

227, 

PLACE 700244 IN location 

300 

3A 

PCF 

227. 

PLACE 700204 OF 700244 

326 

4 


IN location 227, 

SCOPE FOR PUNCH INTER- 

400 

4 

PSA 

rupting before it is 
selected . 

SCOPE FOR NO interrupt. 

412 

4 

PSB 

PLACE 700204 IN LOCATION 

227, 

SCOPE FOR NO interrupt, 

412 

5 


PLACE 700244 IN LOCATION 

227, 

SCOPE FOR NO tape ALWAYS 

500 

5 


SET 

NO TAPE WILL NOT SET 

524 

FAST 

'SCOPE mode LOOP' 




A separate routine is provided Which will punch ant character 

SPECIFIED BY ACS 10-17. THE UOOP USES PSA ONUY, BUT THIS MAY 

be changed by Inserting psb ( 700244 ) into location 3102 , 

THE loop consists OF SIX INSTRUCTIONS. OF WHlCH THE FIRST IS 

CAF . 

THE PURPOSE OF THE ROUTINE IS TO PROVIDE A VERY SHORT LOOP 
for 'SCOPING' IF THE METHODS PREVIOUSLY DESCRIBED ARE NOT 

suitable. 



(8. CffNT’D) 


instructions: 

A. SET THE address SWITCHES Tq 3100. 

B. PLACE any character !N ACS 10-17, 

C. PRESS I/O RESET, AND THEN START. 

D. THE LOCP may be HALTED WITH PROGRAM STOP. 

E. ACS 10-17 may be changed WHILE THE LOOP IS RUNNING. 

looping on control logic tests 2-4 

TEST 2 Through ^ may be continuously executed to facilitate 

TESTING the CONTROL LOGIC. 

looping with either the PSA OR PSB iot is provided, 

TO loop on tests 2 THROUGH 4 USING PSAS 


A. 

PLACE ACS 2 ON A 1, 



B. 

set the address SWITCHES TO 

220. 


e, 

PRESS I/O RESET, AND THEN START, 


D. 

the loop may be halted with 

program 

STOP, 


TO LOOP ON TEST 2 THROUGH 4 

USING PSBt 

A. 

place ACS 2 ON A 1. 



B, 

SET THE ADDRESS SWITCHES TO 

464 


C. 

PRESS I/O RESET, AND THEN START, 


0, 

THE LOOP may be HALTED WITH 

PROGRAM 

STOP. 

APPL 

ICATION - data CHECK TESTS 




variable Pl^NCH SPEED CONTROL 


ACS 4 Through 17 will provide speed control fqR all oaTa chec 
TESTS. with all 14 ACS ON A 1. THE SPEED WjLL BE The SlOWeST 
normal speed is restored by placing ACS 4 - 17 ON A 0. 

ANY combination of THE 14 SWITCHES MAY BE USEd» AND MAY BE 

changed while The program is Running. 



THE test IS designed TO TEST ThE FUNCTIONS O'" ThE PUNCH 

control logic with minimum operator intervention, a 

SCOPE LOOP IS INCLUDED IN THE PROGRAM TO AlQ IN MAKING ANY 

other mechanical or timing adjustments necessary, IF The con- 
trol LOGIC tests run, any REMAINING ERRORS wIlL BE IN The DATA 
paths . 


THE data check tests ARE DESIGNED TO AID IN ^inoinG MECHANICAL 
PAIluRES in the PUNCH ITSELF. THERE ARE NINE DATA CHECK TESTS 
IN all, each punching a DIPPERENT PATTERN, 


table 

1 error 

halts AND 

identification for data checks 

TEST NO. 

C (MO) 

TAG 

identification 

1 

221 

PE01 

punch flag set after IOt of 
700110. 

2 

242 

PA02 

flag not set after PSA IOT, 

3 

245 

PB02 

FLAG NOT SET AFTER PSB IOT. 

3 

311 

PA03 

flag did not clear using PSA, 

3 

312 

PB03 

flag did NOT CLEAR USING PSB. 

4 

434 

P05A 

punch caused illegal interrupt. 

4 

436 

P05B 

SPURIOUS interrupt. turn OFF 

I/O devices other than tty, 

READER AND PUNCH, 

4 

424 

PA05 

NO INTERRUPT USING PSA. 


425 

PB05 

NO INTERRUPT USING PSB. 

5 

515 

flgnot 

NO TAPE SET with TAPE IN PUNCH, 
CHECK power SWITCH WIRING, 

5 

541 

noflg 

NO TAPE NOT SET WITH NO TAPE 

IN PUNCH, CHECK WIRING ON 

PUNCH NO TAPE SWITCH. 

5 

541 

noflg 

NO TAPE NOT SET WITH POWER OFF, 
CHECK WIRING, 

5 

523 

PHLT10 

REMOVE TAPE FROM PUNCH AND PRESS 
CONTINUE , 

5 

547 

HLT10A 

END OF NO Tape test. Press 
CONTINUE TO START DATA CHECKS, 



(9. CONT'D) 


table 1 (CONT’D) 


TEST NO. C (MO) TAG IDENTIFICATION 


2426 HALT AFTER COMPLETING DATA 

CHECKS, PRESS CONTINUE TQ 
READ THE TAPE. 

4427 HALT AFTER VERIFYING THf TAPE, 

PRESS continue TO RESTART DATA 
CHECKS, 

table 2 error halts and identification for read CHECKS 


TEST NO. 

C (MO) TAG 

identification 


1 

4535 

NO mark character 
PRESS CONTINUE TO 

read. 

restart, 

1-9 

4460 

data error# press 
TO continue read. 

continue 



If9. 


table 2 

restarting 

address 



CONTROL 

LOGIC tests 


test 

1 

- 2C0 


illegal instruction 

test 

2 

- 222 


SET TlAG with PSA and PSB 

TEST 

3 

- 320 


clear flag with PSA and PSB 

TEST 

3A 

- 330 


clear flag with pcf 

TEST 

4 

- 420 


interrupt test 

TEST 

5 

- 520 


no tape test 




data check 

TESTS 

TEST 

1 

- 

1004 

SKEW TEST 

TEST 

2 

- 

1100 

ALL 2ER0 test 

TEST 

3 

- 

1200 

all channel test 

TEST 

A 

- 

1300 

sliding test 

TEST 

5 

- 

1500 

sliding ‘O' test 

TEST 

6 

- 

1700 

ADJACENT. channel TEST 

TEST 

7 

- 

2200 

binary count (PSA) 

TEST 

8 

- 

2300 

binary count (PSB) 

TEST 

9 

- 

2400 

RANDOM STALL (0»377) 



(10. CONT’D) 

READ verification CHECKS 


TEST 

1 

3400 

READ 

SKEW test 

TEST 

2 

3500 

READ 

ALL zero test 

test 

3 

3600 

READ 

all I’S TEST 

TEST 

4 

3700 

READ 

SLIDING ’1’ test 

TEST 

5 

4000 

READ 

SLIDING *0’ TEST 

TEST 

6 

4100 

READ 

adjacent channel 

TEST 

7 

4200 

READ 

BINARY COUNT (PSA) 

TEST 

8 

4300 

READ 

BINARY COUNT (PSB) 

TEST 

LIST] 

9 

[NG 

4400 

READ 

RANDOM stall TEST 


11 . 
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PTP15 


PTPiS 


.title ptpi;> 

/ 

/PDP-15 PAPER TAPE PyNCH DIAGNOSTIC 
/MAInOEC 15-020C-0 

/copyright AUG, 10, 1970, DIGITAL EQUIPMENT CORP. MAYNARD, MASS, 
/revised • SEPT. 1, 1971 
/PROGRAMMER} earl L, BOUSE 
/ 

,ABS 

700406 TLSS700406 

700401 TSrs70040l 

700402 TCr5700402 

700004 CLOFs700004 

700201 PSF»700201 

700202 PCFS700202 

700204 PSA»700204 

700244 PSB*700244 

700101 RSFa700101 

700102 RCF*700102 

700104 RSA»700104 

700112 RRBS700112 

700144 RSB«700144 

/ 

/control switch settings 
/ 

/AC SW0 » 0, halt after error type out 
/AC SW0 ■ 1, continue after error type OUT 
/AC swi « 0 , inhibit scope loop 
/AC SWI * li RUN -SCOPE LOOP 
/AC SW2 s 01 NORMAL PUNCH 
/AC SW2 « 1 , REPEAT TEST 
/AC SW4-17 a delay FqR PuNCH 
/ 

/ 


00000 


.LOC 

0 


00000 

000000 

0 



00001 

600001 

JMP 

. 


00002 

777777 

law 

•^1 


00003 

777777 

law 

^1 


00004 

777777 

LAW 

^1 


00005 

777777 

LAW 

-1 


00006 

740040 

XX 



00011 


.LOC 

11 


00011 

000000 

0 


/index 11 

00016 


,LOC 

16 


00016 

000000 

0 


/INDEX 16 

00017 

000000 

0 


/index 17 



.EJECT 





PTPiS 


PAGE 2 P?Pl5 

/ 

/TESTli ILLEGAL INSTRUCTION TEST 


00203 



,LOC 

200 


00200 

700004 

BGNPCH 

CLOF 



00201 

703302 


CAF 



00202 

104475 


JMS 

CRL^ 


00203 

777776 


law 

-2 


00204 

040013 


OAC 

13 


00205 

700110 


700110 


/false iot 

00206 

103225 


JMS 

STAL70 

/wait 

00207 

700201 


PSF 


/test For flag set 

00210 

741000 


SKP 


/SHOULD SKIP 

00211 

600217 


JMP 

PFE«R 

/EPROR 

00212 

440013 


ISZ 

13 


00213 

600205 


JMP 

BGNPCH*5 


00214 

i0S153 


JMS 

SCOPE 

/check FOH scope loop 

00215 

600205 


JMP 

BGNPCH+5 


00216 

600222 


JMP 

TST2 


00217 

103153 

PFERR 

JMS 

SCOPE 

/check foh scoping error 

00220 

600205 


JMP 

BGNPCH*5 


00221 

740040 

PE01 

HLT 


/illegal instruction executed 




.EJECT 





PAGE 3 P-TP15 PTP3,5 

/ 

/TEST 2i SET PUNCH FlAG w!TH PSA AND PSb 


/ 


00222 

200466 

TST2 

LAC 

CKPSa 

/pSA lOT 

00223 

040227 


OAC 

PSAB 


00224 

777776 

PTST2 

law 

-2 


00225 

040013 


OAC 

13 


00226 

750000 


cla 

i 



00227 

000000 

PSAB 

f 

0 


/*TO PSa or PSB 

00230 

100317 


UMS 

STAL4 

/4 SEC stall 

00231 

700201 


PSF 


/FLAG Should be set 

00232 

600240 


JMP 

PER3 

/ERRORi flag not SET 

00233 

440013 


ISZ 

13 


00234 

600227 


JMP 

PSAB 


00235 

103153 


JMS 

SCOPE 

/check for scope mode 

00236 

600227 


JMP 

PSAB 

/SCOPE LOOP 

00237 

600300 


JMP 

PTST3 

/E*IT 

00240 

103153 

PEP3 

JMS 

SCOPE 


00241 

600227 


JHP 

PSAB 

/SCOPE mode 

00242 

200227 


lac 

PSAB 


00243 

540466 


SAD 

CKPSa 


00244 

740040 

PA02 

HLT 


/FLAG NOT SETTING WITH PSA 

00245 

740040 

PB02 

HLT 


/flag NOT SETTING WITH PSB 

00246 

600227 


JMP 

PSAB 



.EUECT 
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PTP15 

PTP15 






/TEST 3 

/ 

, RESET 

PUNCH flag 

PSA.PSB AKiD PCF 

00300 



• LOC 

300 


00300 

400227 

PTST3 

XCT 

PSAB 

/FIRST set the flag 

00301 

700201 


PSF 



00302 

600301 


JMP 

1 


00303 

400227 


XCT 

PSAB 

/FLAG SeTi clear WITH PSA.PSB 

00304 

600314 


JMP 

0K3 

/OK. FLAG CLEARED 

00305 

103153 


JMS 

SCOPE 

/error# flag still set 

00306 

600300 


JMP 

PTST3 

/SCOPE LOOP 

00307 

200466 


LAC 

ckpsa 


00310 

540227 


SAO 

PSAB 


00311 

740040 

PA03 

HL7 


/FLAG oio NOT Clear using psa 

00312 

740040 

PB03 

HIT 


/flag oio not clear using psb 

00313 

600300 


JMP 

PTST3 

/rMEXEcuTE 

00314 

103153 

0K3 

y 

JMS 

SCOPE 

/check for scope mode 

00315 

600300 


JMP 

PTST3 

/scope mode 

00316 

600326 


JMP 

1 

PTStSA 

/exit 



/4 SEC 

STALL routine 
/ 


00317 

000000 

STAL4 

r 

0 



00320 

777703 


LAW 

s7S 

/stall 4 SfC 

00321 

044701 


DAC 

BLKlMT 


00322 

103229 


JMS 

ST4L70 


00323 

444701 


IS2 

BLKLMT 


00324 

600322 


JMP 

1 *2 


00325 

620317 


JMP« 

STAL4 
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/ 




/CLEAR 

flag with PCF 


00326 

400227 

PTST3A 

XCT 

psab 

/set flag 

00327 

700201 


PSF 



00330 

600327 


JMP 

• *•1 


00331 

700202 


PCF 


/clear punch flag 

00332 

700201 


PSF 



00333 

600337 


JMP 

0K3A 

/OKi FLAG cleared 

00334 

103153 


JMS 

SCOPE 

/check POR SCOPE LOOP 

00335 

600326 


JMP 

PTST3A 

/SCOPE mode 

00336 

740040 

PE04 

HLT 


/ERROR# PCP did not CLEAR FLAG 

00337 

103153 

0K3A 

JMS 

SCOPE 


00340 

600326 


JMP 

PTST3A 

/SCOPE mode 

00341 

600400 


JMP 

/ 

PTST4 

/EXIT, NEXT TEST 



/PUNCH 

/ 

interrupt test 


00400 



.LOC 

i 

400 


00400 

200470 

PTST4 

LAC 

JMP& 


00401 

040001 


OAC 

1 


00402 

700004 


CLOF 



00403 

703302 


CAP 



00404 

700042 


ION 



00405 

103225 


JMS 

STAL70 

/W^IT 2i0 MS FOR illegal INTERRUPT 

00406 

103225 


JMS 

STAL70 


00407 

103225 


JMS 

STAL70 


00410 

103153 


JMS 

SCOPE 

/check for scope mode 

00411 

600400 


JMP 

PTST4 


00412 

200471 

psrint 

I.AC 

JMP6 


00413 

040001 


OAC 

1 


00414 

703302 


CAP 



00415 

700042 


ION 



00416 

400227 


XCT 

PSAB 


00417 

100317 


JMS 

STAL4 

/get punch going 

00420 

103153 


JMS 

SCOPE 

/error# no INTERRUPT OCCURRED 

00421 

600412 


JMP 

PSRINT 

/SCOPE 

00422 

200466 


LAC 

ckpsa 


00423 

540227 


SAO 

PSAB 


00424 

740040 

PA05 

hlt 


/NO interrupt using PSA 

00425 

740040 

PB05 

HLT 


/NO interrupt using psb 

00426 

600412 


JMP 

PSRINT 





.eject 
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PTP15.. 


TP15 


/ 

/interrupt service ROUTIwE 


/ 


00A27 

103153 

ILLEG 

JMS 

SCOPE 

00430 

600400 


JMP 

PTST4 

00431 

700314 


lORS 


00432 

742010 


rtl 


00433 

741100 


SPA 


00434 

740040 

P05A 

HLT 


00435 

700314 


lORS 


00436 

740040 

P05B 

hlt 


00437 

600400 


JMP 

PTST4 

00440 

103153 

tspflg 

jMS 

SCOPE 

00441 

600412 


JMP 

psrint 

00442 

700314 


lORS 


00443 

504711 


AND 

(100000 

00444 

740200 


SZA 


00445 

600451 


JMP 

0K4 

00446 

700314 


lORS 


00447 

740040 

P05C 

HL7 


00450 

600412 


JMP 

y 

PSRlNT 

00451 

200446 

OK4 

LAC 

p05C»l 

00452 

040001 


DAC 

1 

00453 

700002 


lOF 


00454 

750004 


las 


00455 

742010 


RTL 


00456 

741100 


SPA 


00457 

600224 


JMP 

PT 8 T 2 

00460 

200467 


lac 

CKPSb 

00461 

540227 


SAD 

PSAB 

00462 

600500 


JMP 

notape 

00463 

600223 


JMP 

y 

PTST2*! 

00464 

200467 

psbsrt 

LAC 

CKPSB 

00465 

600223 


JMP 

PTST2»1 

00466 

700204 

CKPSA 

700204 


00467 

700244 

CKPSB 

700244 


00470 

600427 

JMP5 

JMP 

illeg 

00471 

600440 

JMP6 

JMP 

tspflg 


.EJECT 


/RUN SCOPE LOOP 

/SEE IF PUNCH Flag is set 


/ERROR* PUNCH Caused illegal interrupt 

/CAP DIDN’T clear FLAG 
/I/O status 

/SPURIOUS INTERT ACal/O STATUS 
/CONTINUE TO RE EXECUTE TEST 


/SCOPE HOPE 

/mask punCh flag 

/make Sure punch caused interrupt 
/punch flag up 

/spurious INTERT. AC«I/0 STTUS 


/test For .loop on tests 2*4 


/LOOP 


/EXIT 

/OO PSB lOT 

/restart here if looping with rsb 


/pSA 

/PSB 



PAGE 7 PTPiS PTP15 

/ 


/TEST 5. NO tape TEST 

/REMOVE ALL TAPE FROM PUnCW AFTER ^ALT AT LOCATION TAGGED PHLT10 


00500 



,LOC 

500 


00500 

703302 

notape 

CAF 



00501 

777766 


law 

-12 


00502 

040551 


OAC 

WORK 


00503 

750000 


CLA 



00504 

700204 


PSA 



00505 

700201 


PSF 



00506 

600505 


JMP 

. «1 


00507 

700314 


lORS 


/TEST NO Tape fla 

00510 

504712 


AND 

(400 

/SSE IF flag set 

00511 

741200 


SNA 


00512 

600516 


JMP 

OKNO 

/OK, FLAG IS NOT SET 

00513 

105153 


JMS 

SCOPE 


00514 

600500 


JMP 

notape 

/SCOPE LOOP 

00515 

740040 

FLGNOT 

HL7 


/error, no tape flag SET 




/ 


/WITH Tape in punch 

00516 

440551 

OKNO 

ISZ 

WORK 


00517 

600503 


JMP 

N0TAPE*3 

/TEST 10 Times 

00520 

103153 


JMS 

SCOPE 

/check for SCOPE MODE 

00521 

600500 


JMP 

notape 


00522 

104506 


JMS 

remTxt 

/TTPCI remove tape 

00523 

740040 

PHLT10 

WLT 


/remove tape from punch, press 
/CONTINUE TO test NO TAPE FLAG 

00524 

777766 


law 

«12 


00525 

040551 


OAC 

WORK 


00526 

703302 

TSFLG 

CAF 



00527 

750000 


CLA 



00530 

700204 


PSA 



00531 

700201 


PSF 



00532 

600531 


JMP 

.•1 


00533 

700314 


lORS 


/TEST For no tape Flag 

00534 

504712 


AND 

(400 


00535 

740200 


S0A 



00536 

600542 


JMP 

OKFLG 

/OK, FLAG SET 

00537 

103153 


JMS 

SCOPE 


00540 

600526 


JMP 

TSFLG 

/RUN SOopE mode 

00541 

740040 

NOFLG 

HLT 


/error, no Tape flag didn»t set 

00542 

440551 

okflg 

ISZ 

WORK 


00543 

600526 


JMP 

TSFLG 

/TEST 10 Times 

00544 

103153 


JMS 

SCOPE 


00545 

600524 


JMP 

TSFLG«2 

/SCOPE mode 

00546 

104515 


JMS 

REPIXT 

/TVPEI REPLACE TAPE 

00547 

740040 

HLT10A 

HLT 


/end OF NO TAPE TEST 

00550 

601000 


JMP 

pnskew 

/HIT continue for PUNCH TEST 

00551 

000000 

work 

f 

0 



00552 

000000 

WORKl 

0 

.EJECT 





PACE 8 PTP15 PTP15 

/ 

/SKEW TESTi PUNCH 512 ALTERNATE PATTERNS OF CHANNEL 1 
/AND channel 8, 


/ 


01000 


,LOC 

PNSKEW JMS 

1000 


01000 

103106 

leader 

/PUNCH leader 

01001 

103137 

JMS 

pnmark 

/PUNCH the mark character 

01002 

777000 

law 

• 1000 

/•5i2 Decimal 

01003 

044701 

OAC 

BLKLMT 


01004 

044702 

OAC 

BLKLM2 


01005 

204713 

lac 

(1 

/channel X 

01006 

103121 

JMS 

punch 


01007 

444701 

1S2 

blklmt 


01010 

601005 

JMP 

1 '3 


01011 

204714 

LAC 

(200 

/channel 8 

01012 

103121 

JMS 

punch 


01013 

444702 

ISH 

BLKLM2 

/check for block 512 

01014 

601011 

JMP 

1 «3 

SCOPE 


01015 

103153 

JMS 

/check scope mode 

01016 

601002 

JMP 

PNSKEW*2 

/RUN scope mope 

01017 

103165 

JMS 

REPEAT 


01020 

601002 

JMP 

PNSKCW*2 

/repeat test 

01021 

601100 

JMP 

/ 

PSACHK 

/RUN BASIC data CHECK 



/ 

/BASIC DATA 

CHECKS 




/PUNCH 1024 

BLOCKS OF zeroes 


01100 


.LOC 

1100 


01100 

776000 

PSACHK law 

• 2000 

/»1024 decimal 

01101 

044701 

OAC 

BLKLMT 


01102 

750000 

CLA 



01103 

103121 

JMS 

punch 

/PUNCH zeroes 

01104 

444701 

ISZ 

BLKLMT 

/check for BLOCK 1024 

01105 

601102 

JMP 

, *3 

SCOPE 


01106 

103153 

JMS 

/check for scope mode 

01107 

601102 

JMP 

PSAChK*2 

/RUN scope mode 

01110 

103165 

JMS 

repeat 

/check for repeat 

01111 

601100 

JMP 

PSACHK 

/RUN repeat mode 

01112 

601200 

JMP 

ALCHAN 

/PUNCH ALL channel TEST 


.EJECT 



PTPIS 


PAGE 9 PTP15 


/ 

/PUNCH ALL channels 
/ 


01200 



.uoc 

1200 


01200 

776000 

ALCHAN 

law 

-2000 

/-1024 DECIMAL 

01201 

044701 


OAC 

BLKLMT 


01202 

204715 


UAC 

(377 


01203 

103121 


JMS 

punch 


01204 

444701 


ISZ 

BLKLMT 


01205 

601202 


JMP 

,^3 

SCOPE 

/check foR scope mode 

01206 

103153 


JMS 

01207 

601202 


JMP 

1 «5 

repeat 

/run scope mode 

01210 

103165 


JMS 


01211 

601200 


JMP 

ALCHAN 

/repeat test 

01212 

601300 


JMP 

/ 

SLDOnE 

/sliding One test 



/PUNCH 

/ 

A SLIDING ONE 


01300 



,LOC 

1300 


01300 

776000 

sloone 

law 

!^2000 

/-1024 DECIMAL 

01301 

044701 


DAC 

BLKLMT 


01302 

204716 


lac 

(RAL 


01303 

041311 


OAC 

oirone 


01304 

754002 


CLAICLLICML 


01305 

044673 


DAC 

STORE 


01306 

777770 


LAW 

"10 


01307 

044703 


DAC 

chacnt 


01310 

204673 

SLOA 

lac 

STORE 


01311 

740010 

di«one 

RAL 



01312 

044673 


OAC 

STORE 


01313 

103121 


JMS 

punch 


01314 

444701 


ISZ 

BLKLMT 


01315 

601323 


JMP 

CK8X 


01316 

103153 


JMS 

SCOPE 

/check scope mode 

01317 

601300 


JMP 

SLDOnE 

/run scope mode 

01320 

103165 


JMS 

repeat 


01321 

601300 


JMP 

SLOONE 

/repeat test 

01322 

601500 


JMP 

SLDiiRO 

/slide zero test 


.EJECT 



PAGE 10 


PTP15 


PTP15 


01323 444703 

01324 601310 

01325 201311 

01326 544716 

01327 601335 

01330 204716 

01331 041311 

01332 777771 

01333 044703 

01334 601310 

01335 204714 

01336 044673 

01337 204717 

01340 041311 

01341 601332 


01500 

01500 776000 

01501 044701 

01502 777770 

01503 044703 

01504 204720 

01505 044673 

01506 103121 

01507 444701 

01510 601516 

01511 103153 

01512 601500 

01515 103165 

01514 601500 

01515 601700 

01516 444703 

01517 741000 

01520 601502 

01521 204673 

01522 744002 

01523 740010 

01524 601505 


/ 

CK8X IS2 

JMP 

LAC 

SAD 

JMP 

LAC 

DAC 

law 

DAC 

JMP 

/ 

CHGDIR LAC 
DAC 
LAC 
DAC 
JMP 
/ 

/ 

/PUNCH A SLIDI 
• LOC 
/ 

SLOZRO law 
DAC 

SLOA0 law 
OAC 
LAC 
OAC 
JMS 
ISZ 
JMP 
JMS 
JMP 
JMS 
JMP 
JMP 
/ 

CHK0 ISZ 
SKP 
JMP 
LAC 
STL 
RAL 
JMP 

.EJECT 


chacnt 

/check for channel 8 

SLDA 

OIROnE 



(RAL 

/WAS 

1 sliding left? 

CHGDIR 

/YfS, 

Rotate right 

(RAL 

OIRONE 

»7 

chacnt 

SLDA 

(200 

STORE 

(RAR 

OIRONE 

CH6DIR-3 

/no» 

rotate lept 


HERO 

1500 


>2000 

blklmt 

■10 

chacnt 

(376 

/-1024 decimal 


store 

punch 

/STORE Pattern 


BLKLMT 

CHK0 

/check for block 

1024 

SCOPE 

/check FoR scope 

MODE 

SLOHRO 

nEPEaT 

/RUN SCOPE MODE 


SLOHRO 

/repeat test 


AOJCH 

CHACNT 

/adjacent channel 

test 

SLOA0 

STORE 

/reset pattern 



SLOA0«3 



PAGE 11 


PTP15 


PTP15 


/ 




/PUNCH 

ADJACENT 

CHANNELS 

01700 



.LOC 

f 

1700 

01700 

776000 

adjch 

law 

-2000 

01701 

044701 


OAC 

BLKLMT 

01702 

204716 


LAC 

(RAL 

01703 

041741 


DAC 

PATOlR*! 

01704 

777770 


law 

-10 

01705 

044703 


DAC 

CHACnT 

01706 

044704 


DAC 

PATCnT 

01707 

204720 


LAC 

(376 

01710 

044705 


DAC 

patern 

01711 

204715 

AOJl 

LAC 

(377 

017*12 

044673 


OAC 

STORE 

01713 

103121 


JMS 

punch 

01714 

444701 


IS2 

BLKLMT 

01715 

601723 


JMP 

CKOROP 

01716 

103153 

ADU2 

JMS 

SCOPE 

01717 

601700 


JMP 

aojch 

01720 

103165 


JMS 

repeat 

01721 

601700 


JMP 

aojCh 

01722 

602200 


JMP 

PABNRY 

01723 

444703 

CKOROP 

IS2 

chacnt 

01724 

601711 


JMP 

AOji 

01725 

777770 


LAW 

•10 

01726 

044703 


OAC 

CHACnT 

01727 

204709 


LAC 

patern 

01730 

103121 


JMS 

punch 

01731 

444701 


ISZ 

BLKLMT 

01732 

741000 


SKP 


01733 

601716 


JMP 

AW2 

01734 

444704 


ISZ 

PATCNT 

01735 

741000 


SKP 


01736 

601744 


JMP 

RCVOIR 

01737 

204705 


LAC 

patern 

01740 

744002 

PATDlR 

STL 


01741 

740010 


RAL 


01742 

044705 


OAC 

patern 

01743 

601711 


JMP 

AOji 




.EJECT 



/^1024 decimal 


/PUNCH 8 ClOUMN'S AlL I'S 


/CHECK FOH 960 FRAMES 

/test To drop a channel 
/check fo« scope loop 

/RUN SCOPE LOOP 

/REPEAT the test 

/PUNCH binary count TEST (PSA) 

/CHECK FO« 8 COLUMNS OF 377 


/reset col count 


/test done 
/COUNT 8 COLUMNS 

/chance pattern direction 


/PUNCH 7 MORE COLt OF 377 



PAGE 12 

PTP15 

PTP15 



01744 

201741 

REVDIR 

/ 

LAC 

PATOIR*! 

01745 

544717 


SAD 

(RAR 

01746 

601754 


JMP 

SHFTlT 

01747 

204717 


LAC 

{RAR 

01750 

041741 


DAC 

PATDlR*! 

01751 

777770 


law 

"10 

01752 

044704 


DAC 

PATCnT 

01753 

601711 


jMP 

/ 

ADji 

01754 

204716 

SHFTlT 

LAC 

(RAL 

01755 

041741 


DAC 

patdir*! 

01756 

601751 


JMP 

/ 

, bS 

02200 


/punch 

/ 

BINARY 

,LOC 

COUNT WITH 
2200 

02200 

776000 

pabnry 

law 

»2000 

02201 

044701 


DAC 

blklmt 

02202 

144673 


D2M 

STORE 

02203 

444673 

PLUSl 

IS2 

STORE 

02204 

204673 


LAC 

store 

02205 

504715 


AND 

(377 

02206 

103121 


JMS 

PUNCH 

02207 

444701 


IS2 

BLKLMT 

02210 

602203 


JMP 

PLUSl 

02211 

103153 


JMS 

SCORE 

02212 

602200 


JMP 

pabnry 

02213 

103165 


JMS 

repeat 

02214 

602200 


JMP 

PABNRY 

02215 

602300 


JMP 

.EJECT 

PBBNRY 


/WAS pattern shifting right? 
/yes, shift left 
/NO, shift right 


/mX000 DECIMAL 


/check for scope mode 
/RUN SCOPE mode 

/repeat test 

/PUNCH binary count (PSB) 



PACE 3.3 


PTP15 


PTP3,5 


02300 


/PUNCH 

02300 

776000 

PBBNRT 

02301 

044701 


02302 

144673 


02303 

444673 

PLUSlB 

02304 

204673 


02305 

504715 


02306 

700244 


02307 

700201 


02310 

602307 


02311 

444701 


02512 

602303 


02313 

103153 


02314 

602300 


02315 

103165 


02316 

602300 


02317 

02400 

602400 

/PUNCH 

02400 

777100 

RANSTL 

02401 

044701 


02402 

103174 


02403 

504721 


02404 

740001 


02405 

044674 


02406 

750000 

newdat 

02407 

103121 


02410 

204715 


02411 

103121 


02412 

444674 


02413 

602406 


02414 

444701 


02415 

741000 


02416 

602421 


02417 

102430 


02420 

602402 


02421 

103153 

CHKSTS 

02422 

602402 


02423 

103165 


02424 

602400 


02425 

103106 


02426 

740040 


02427 

603400 



/ 

binary count with psb 

,LOC 2300 

/ 

law -2000 

OAC BLKUMT 

OHM STORE 

ISH STORE 

LAC STORE 

and (377 

PSB 
PSF 
JMP 

ISZ BLKUMT 

JMP PLUSlB 

JMS SCOPE 

JMP PBBNRY 

JMS repeat 

JMP PBBNRY 

JMP RANSTL 

/ 

/ 

random stalu and block 


,10C 

2400 

/ 


law 

-700 

OAC 

BLKLMT 

JMS 

rangen 

AND 

(7 

CMA 


OAC 

BLSTOR 

CLA 


JMS 

PUNCH 

LAC 

(377 

JMS 

punch 

!S2 

BLSToR 

JMP 

newdat 

ISH 

blklmt 

SKP 


JMP 

CHKSTS 

JMS 

STALL 

JMP 

RANSTL*2 

/ 


JMS 

SCOPE 

JMP 

RANSTL*2 

JMS 

repeat 

jMP 

RANSTL 

JMS 

leader 

HLT 


JMP 

ROSKEW 

.EJECT 



/-1024 decimal 


/PUNCH binary 


/check for scope mode 

/SCOPE mode 
/REPEAT test 

/random stall test 


lengths With fixed data pattern 


/random block lengths 


/check for scope mode 


/repeat test 

/punch trailer 

/TEST Finished 

/HIT continue to READ TAPE 



PAGE 14 ... PTP15 


PTP15 


/ 

/RANDOM stall ROUTINE 
/ 


02430 

000000 

stall 

0 


02431 

103174 


JMS 

rangen 

02432 

904722 


AND 

(7777 

02433 

740001 


CMA 


02434 

044703 


OAC 

CHACNT 

02439 

777736 


LAW 

842 

02436 

040591 


OAC 

WORK 

02437 

440551 


ISZ 

WORK 

02440 

602437 


JMP 

i«l 

02441 

444703 


ISZ 

CHACNT 

02442 

602435 


JMP 

I «5 

02443 

622430 


JMP« 

/ 

STALL 



/PUNCH 

/ 

character 

[ IN ACS 

03100 



.LOC 

> 

3100 

03100 

703302 

PUNCHR 

CAP 


03101 

750004 


LAS 


03102 

700204 


PSA 


03103 

700201 


PSF 


03104 

603103 


JMP 

«»1 

03109 

603100 


JMP 

PUNChR 


/ 

/PUNCH leader 


0310.6 

000000 

/ 

leader 0 


03107 

777470 

LAW 

«310 

03110 

044679 

OAC 

ledcnt 

03111 

103149 

JMS 

tnotap 

03112 

790000 

CLA 


03113 

700204 

PSA 


03114 

700201 

PSF 


03119 

603114 

JMP 

1 »1 

03116 

444675 

ISZ 

LEPCNT 

03117 

603111 

JMP 

1 "4 

03120 

623106 

JMP* 

LEADER 


.EJECT 


/stalu in increments or 100 usec 


/SET UP COUNTER 


/PUNCH alpha 



PASE 15 


PTP15 


PTP15 


/ 




/PUNCH routine 



03121 

000000 

y 

PUNCH 0 



03122 

044676 

DAC 

DATSTR 

/SAVE Data 

03123 

103145 

JMS 

TNQTaP 

/TEST For no tape 

03124 

750004 

las 


/SPEED control 

03125 

504723 

AND 

(37777 


03126 

740001 

CMA 



03127 

040551 

OAC 

WORK 


03130 

440551 

ISZ 

WORK 


03131 

603130 

JHP 

."1 

DATStR 

/data 

03132 

204676 

LAC 

03133 

700204 

PSA 



03134 

700201 

PSP 



03135 

603134 

JHP 

.•4 


03136 

623121 

JMP* 

/ 

punch 




/ 

/PUNCH AN ALU 

IIS MARK 

character 

03137 

000000 

f 

PNMArK 0 



03140 

204715 

LAC 

(377 


03141 

700204 

PSA 



03142 

700201 

P8F 



03143 

603142 

JMP 

.■1 


03144 

623137 

JMP« 

PNMARK 



.EJECT 



PAGE 16 PTP15 PTFiS 


/ 

/TEST FOR NO TAPE IN PUNCH 
/ 


03145 

000000 

tnotap 

0 



03146 

700314 


lORS 



03147 

504712 


AND 

(400 

/NO tape Flag 

03150 

740200 


S2A 


/tape ok 

03151 

603205 


JMP 

pnqtap 

/NO# exit 

03152 

623145 


JMP# 

/ 

tnotap 

/yes, Continue 



/ 

/TEST FOR SCOPE 

i 

mope* AC SWl = 

1 

03153 

000000 

SCOPE 

0 



03154 

777777 


UAW 

"1 


03155 

044701 


dac 

BLKLMT 


03156 

044702 


DAC 

BLKLM2 


03157 

750004 


LAS 



03160 

740010 


RAL 



03161 

741100 


SPA 


/SCOPE MOPEt 

03162 

623153 


JMP* 

SCOPE 

/yes 

03163 

443153 


IS2 

SCOPE 

/NO, continue 

03164 

623153 


jMP* 

/ 

SCOPE 




/ 

/TEST AC SW2 FOR REPEAT MODE 

i 


03165 

000000 

REPEAT 

f 

0 



03166 

750004 


LAS 



03167 

742010 


RTL 



03170 

741100 


SPA 


/repeat mode? 

03171 

623165 


JMP* 

repeat 

/yEs 

03172 

443165 


ISZ 

REPEAT 

/NO# continue 

03175 

623165 


JMP* 

/ 

repeat 




/RANDOM 

/ 

NUMBER 

y 

generator 


03174 

000000 

RANGEN 

r 

0 



03175 

344671 


TAD 

rana 


03176 

344672 


TAD 

RANB 


03177 

044671 


dac 

RANA 


03200 

750010 


GLK 



03201 

344671 


TAD 

RANA 


03202 

344672 


TAD 

RANB 


03203 

044672 


dac 

RANB 


03204 

623174 


JMP* 

rangen 



.EJECT 



PAGE 17 


PTP15 


PYP15 


/ 

/TYPE »N0 TAPE IN PUNCH* 


/ 


03205 

104475 

PNOTaP 

JMS 

CRL^ 

03206 

203213 


LAC 

NTFLG 

03207 

104624 


JHS 

INOXit 

03210 

104475 


JMS 

crlf 

03211 

700402 


TCF 


03212 

740040 


HLT 

/ 




/ 

/constants for 

i 

NO TAPE TEXT 

03213 

003213 

NTFlG 



03214 

317316 


317316 


03219 

524240 


324240 


03216 

320301 


320301 


03217 

240309 


240305 


03220 

316311 


316311 


03221 

320240 


320240 


03222 

316329 


316325 


03223 

310303 


310303 


03224 

000000 


000000 

/ 




/70 MS 

/ 

STALL ROUTINE 

i 

03229 

000000 

STAL70 

0 


03226 

777772 


LAW 

• 6 

03227 

040991 


OAC 

WORK 

03230 

770000 


law 

-10000 

03231 

040992 


OAC 

WORKl 

03232 

440992 


ISZ 

WORKl 

03233 

603232 


JMP 

. "1 

03234 

440991 


IS2 

WORK 

03239 

603230 


jMP 

STAL70*3 

03236 

623229 


JMP* 

STAL70 


.EJECT 


/carriage return linefeed 

/TEXT »N0 TAPE IN PUNCH’ 


/0»N 
/Ti 
/PiA 
/ lE 
/Ni I 
/Pi 
/NiU 
/HiC 



PAGE 18 PT?i5 PTP15 

/READ routine 
/ 

/THIS SUBROUTINE IS USED TO VERIFV THE TAPE PUNCHED 

/WITH THE PUNCH TEST, THE TAPE MUST BE PUNCHED WITH 

/THE ’SCOPE mode ANO REPEAT MODE' DISABLED TO ALLOW FOR 

/CORRECT reader SYNCING, 

/PLACE THE punched TaPE IN THE READER ANY PLACE IN THE 

/BLANK leader, 

/ 

03400 ,LOC 340B 

/ 

/TEST 1 

/READ SKEW TEST 
/ 


03400 

204713 

RDSKEW 

LAC 

(1 

/TEST 1 

03401 

044677 


DAC 

TSTNO 


03402 

777200 


LAW 

.600 

/cntr For blank leader 

03403 

044701 


DAC 

BLKLMT 


03404 

204715 


LAC 

(377 

/mark chaR, 

03405 

044700 


DAC 

DATA 


03406 

104431 

RDMARK 

JMS 

READ 


03407 

544700 


SAD 

DATA 


03410 

603414 


JMP 

RDSKlS 

/mark chaR., start read 

03411 

444701 


|8Z 

BLKLMT 


03412 

603406 


JMP 

RDMARK 


03413 

604932 


JMP 

/ 

noread 

/ERRORi NO MARK CHAR. 

ff3414 

777000 

rdskib 

/ 

law 

•1000 

/«^12 OCMCtMAL 

03415 

044701 


DAC 

BLKLMT 


03416 

044702 


DAC 

BLKLM2 


03417 

204713 


LAC 

(1 

/COLUMN 1 

03420 

044700 


DAC 

DATA 

/■TO GOOD DATA 

03421 

104431 

SKCWl 

JMS 

READ 


03422 

944700 


SAD 

DATA 

/compare good TO READ DATA 

03423 

741000 


SKP 



03424 

104437 


JMS 

RDRERR 

/read error 

03429 

444701 


ISZ 

BLKLMT 


03426 

603421 


JMP 

SKEWl 


03427 

204714 


LAC 

(200 

/column 8 

03430 

044700 


DAC 

DATA 


03431 

104431 

SKEWS 

JMS 

READ 


03432 

944700 


SAD 

DATA 

/COMPARE Data 

03433 

741000 


SKP 



03434 

104437 


JMS 

RDRERR 

/data error 

03435 

444702 


ISZ 

BLKLM2 


03436 

603431 


JMP 

SKEWS 


03437 

103169 


JMS 

repeat 

/check OOR repeat MODE 

03440 

603414 


JMP 

RDSK16 

/repeat read 

03441 

603500 


JMP 

rdzero 

/read Zero test 




.EJECT 
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PTP15 

PTPiS 






/TEST 

/ 

2 





/read 

BASIC OAT/t 

1 CHECK 


03500 



,L0C 

J 

3500 


03500 

204724 

RD2ER0 

UAC 

{2 

/test 2 

03501 

044677 


OAC 

TSTNO 


03502 

144700 


OZM 

DATA 

/register for good DAT 

03503 

703302 


CAF 



03504 

776000 


tAW 

*2000 

/•»3,024 decimal 

03505 

044701 


DAC 

blkLmt 


03506 

104431 


JMS 

REAP 

/READ DATA 

03507 

741200 


SNA 


/should bE all 0’S 

03510 

741000 


SKP 



03511 

104437 


JMS 

rdrerr 

/read error 

03512 

444701 


IS2 

blklmt 


03513 

603506 


JNP 

, «s 

/read next column 

03514 

103165 


JMS 

REPEAT 

/check for repeat mode 

03515 

603500 


JMP 

rozero 

/repeat read 

03516 

603600 


JMP 

/ 

RDALL 

/read All channel test 



/TEST 

/ 

3 





/READ 

ALL CHANNEL TEST 


03600 



.LOC 

y 

3600 


03600 

204725 

RDALl 

LAC 

(3 

/test 3 

03601 

044677 


OAC 

TSTNO 


03602 

776000 


LAW 

*2000 

/**1024 decimal 

03603 

044701 


OAC 

BLKLMT 


03604 

204715 


LAC 

<377 


03605 

044700 


OAC 

DATA 


03606 

104431 

alucha 

JMS 

READ 

/read Data 

03607 

544700 


SAP 

DATA 

/COMPARE Data 

03610 

741000 


SKP 



03611 

104437 


JMS 

RDRERR 

/read error 

03612 

444701 


ISZ 

blklmt 


03613 

603606 


JMP 

ALLChA 


03614 

103165 


JMS 

repeat 


03615 

603600 


JMP 

RDALL 

/REPEAT read 

03616 

603700 


JMP 
r ir#»» 

ROSLDl 

/rIad Sliding one 


.EJECT 
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rTPl5 

PTP15 






/TEST 4 

/ 





/READ sliding • 

i» test 


03700 



,LOC 

/ 

3700 


03700 

204726 

ROSLDl 

LAC 

(4 

/TEST 4 

03701 

044677 


DAC 

tstno 


03702 

776000 


LAW 

-2000 

/-i024 decimal 

03703 

044701 


DAC 

BLKLMT 


03704 

754002 


claistl 



03705 

044700 


DAC 

DATA 


03706 

777770 


LAW 

-10 


03707 

044703 


DAC 

chacnt 


03710 

204700 

RSLOAl 

LAC 

DATA 


03711 

740010 

SETDIR 

RAL 



03712 

044700 


OAC 

DATA 

/read Column 

03713 

104431 


JMS 

READ 

03714 

544700 


SAO 

DATA 


03715 

741000 


SKR 



03716 

104437 


JMS 

rorerr 


03717 

444701 


tse 

BLKLMT 

/compare To GOOO DATA 

03720 

741000 


SKR 


/EKIT, check rOR repeat 

03721 

603737 


JMR 

RERCHK 

03722 

444703 


IS2 

CHACNT 

/check for channel 8 

0372S 

603710 


JMR 

rsldai 

/ROTATE channel 

03724 

203711 


LAC 

SETOIR 

/WAS 1 slicing lefti 

03725 

544716 


SAO 

(RAL 

03726 

603734 


JMR 

REDDIR 

/yes, Rotate right 

03727 

204716 


lac 

(RAL 

/NO. rotate left 

03730 

043711 


OAC 

SETOlR 


03731 

777771 

RCIET 

law 

«»7 


03732 

044703 


OAC 

chacnt 


03733 

603710 


JMR 

/ 

rsldai 


03734 

204717 

RCOOIR 

LAC 

(RAR 


03735 

043711 


OAC 

SETDIR 


03736 

603731 


JMR 

RESET 


03737 

103165 

REPCHK 

JMS 

repeat 

/repeat reao 

03740 

603700 


JMR 

ROSLOl 

03741 

604000 


JMR 

.eject 

ROSLO0 

/reao Sliding eero 



PACE 21 

PTP15 

P7P15 






/TEST 

/ 

5 





/READ 

SLICING 

HERO test 


04000 



,LOC 

/ 

4000 


04000 

204727 

RDSLO0 

LAC 

<5 

/test 5 

04001 

044677 


DAC 

TSTNO 


04002 

776000 


law 

• 2000 

/•1024 DECIMAL 

04003 

044701 


DAC 

BLKLMT 


04004 

777770 

RSl,OA0 

law 

• 10 


04005 

044703 


DAC 

CHACnT 


04006 

204720 


LAC 

(376 

/good Data 

04007 

044700 


DAC 

DATA 

04010 

104431 


JMS 

REAP 


04011 

544700 


SAD 

DATA 

/compare Data 

04012 

741000 


SKP 



04013 

104437 


JMS 

RORERR 

/read error 

04014 

444701 


ISZ 

BLKLMT 


04015 

741000 


SKP 



04016 

604027 


JMP 

REPCK2 

/EXIT, check for repeat 

04017 

444703 


ISZ 

CHACNT 

/CHECK roH column 8 

04020 

741000 


SKP 


/reset pattern 

04021 

604004 


JMP 

RSLPA0 

04022 

204700 


LAC 

DATA 


04«23 

744002 


STL 



04024 

740010 


RAL 



04029 

304719 


ANO 

(377 


04026 

604007 


JMP 

RSLDA0*3 


04027 

103169 

REPCK2 

JMS 

REPEAT 


04030 

604000 


JMP 

RO0LD0 

/REPEAT read 

04031 

604100 


JMP 
. r iprf 

RDAOJC 

/read adjacent channel test 


.EJECT 
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PTP15 

PTP15 






/TEST 

/ 

6 





/READ 

adjacent 

channel test 


04100 



,LOC 

y 

4100 


04100 

204730 

ROAOjC 

LAC 

(6 

/test 6 

04101 

044677 


OAC 

tstno 


04102 

776000 


law 

-2000 

/-t024 DECIMAL 

04103 

044701 


OAC 

blklmt 


04104 

204716 


LAC 

(RAL 


04105 

044147 


OAC 

PATREO*! 


04106 

777770 


law 

-10 


04107 

044703 


OAC 

CHAGnT 


04110 

044704 


OAC 

PATCnT 

/read 8 COLUMN’S ALL I’S 

04111 

204720 


LAC 

(376 


04112 

044705 


OAC 

PATERN 


04113 

204715 

RAOJl 

LAC 

(377 


04114 

044700 


OAC 

DATA 


04115 

104431 


JH8 

READ 


04116 

544700 


SAD 

DATA 

/compare REAO to good OATA 

04117 

741000 


SKP 



04120 

104437 


JMS 

RQRERR 

/READ ERROR 

04121 

444701 


!5i 

BLKLMT 


04122 

741000 


SKP 



04123 

604169 


JMP 

REPGK3 

/EXITi CHICK EOR REPEAT 

04124 

444703 


|S2 

chacnt 

/CHECK POR 8 COLUMNS OP 377 

04125 

604113 


JMP 

RADVl 


04126 

777770 


law 

• 10 


04127 

044703 


OAC 

chacnt 


04130 

204705 


LAC 

patErn 


04131 

504715 


AND 

(377 


04132 

044700 


OAC 

OATA 


04133 

104431 


JMS 

read 


04134 

544700 


SAO 

DATA 

/COMPARE READ TO 6000 OATA 

04135 

741000 


SKP 



04136 

104437 


JMS 

RORERR 

/READ ERROR 

04137 

444701 


ISZ 

BLKLMT 

/DONE? 

04140 

741000 


SKP 


/NO 

04141 

604165 


JMP 

REPCK3 

/EXIT 

04142 

444704 


jSi 

patCnt 

/COUNT 6 COLUMNS 

04143 

741000 


SKP 



04144 

604192 


JMP 

RCV«ED 

/CHANGE pattern DIRECTION 

04145 

204709 


LAC 

PATERN 


04146 

744002 

patreo 

STL 



04147 

7-401110 


RAL 



04150 

044709 


OAC 

PATERN 


04151 

604113 


JMP 

RAO%ll 





.EJECT 





PASE 23 


PTP15 


PTPiS 


/ 


04J.52 

204147 

REVRED 

LAC 

PATREO*! 

04153 

544717 


SAD 

(RAR 

04154 

604162 


JMP 

SHLEFT 

04155 

204717 


LAC 

(RAR 

04156 

044147 


dac 

PATRED*! 

04157 

777770 


law 

• 10 

04160 

044704 


DAC 

patcnt 

04161 

604113 


JMP 

f 

RADJl 

04162 

204716 

SHLEFT 

lac 

(RAL 

04163 

044147 


DAC 

PATRED*! 

04164 

604157 


JMP 

,■5 

04165 

103165 

rEPCK3 

JM8 

repeat 

04166 

604100 


JMP 

RDAOJC 

04167 

604200 


JMP 

rdrsa 



/TEST 7 

f 




/read BINARY 

COUNT Punch 

04200 



lUOC 

y 

4200 

04200 

204721 

rdrsa 

LAC 

(7 

04201 

044677 


DAC 

tstno 

04202 

776000 


law 

«2000 

04203 

044701 


DAC 

BLKLMT 

04204 

144700 


OEM 

DATA 

04205- 

•444700 

RPLUSl 

iSi 

DATA 

04206 

204700 


LAC 

DATA 

04207 

504715 


AND 

(377 

04210 

044700 


DAC 

DATA 

04211 

104431 


JMS 

REAO 

04212 

544700 


SAD 

DATA 

04213 

741000 


SKP 


04214 

104437 


JMS 

rdrerr 

04215 

444701 


ISE 

blklmt 

04216 

604205 


JMP 

RPLOSl 

04217 

103165 


JMS 

REPUT 

04220 

604200 


JMP 

rdrsa 

04221 

604300 


JMP 

rdrsb 


.EJECT 


/WAS pattern shifting right 
/YES, Shift left 
/NOi shift right 


/repeat read 

/RMO binary count test 

PSA 

/test 7 

/^1024 OECIMAU 

/read Data 

/COMPARE bead to GOOD DATA 

/read Error 

/CONTINUE 

/EXIT, read binary count 
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PTP15 


PTPiS 


/ 

/TEST 8 

/READ BINARY COUNT PUNCHED Wl 


04300 



.LOC 

4300 

04300 

204731 

RORSB 

lac 

(12 

04301 

044677 


OAC 

TSTNO 

04302 

776000 


law 

• 2000 

04303 

044701 


DAC 

BLKLMT 

04304 

144700 


OZM 

DATA 

04305 

444700 

RPLUSB 

ISZ 

DATA 

04306 

204700 


lac 

DATA 

04307 

504732 


AND 

(77 

04310 

344714 


TAD 

(200 

04311 

044700 


DAC 

DATA 

04312 

104431 


JMS 

READ 

04313 

544700 


SAD 

DATA 

04314 

741000 


SKP 


04315 

104437 


JMS 

rorerr 

04316 

444701 


ISZ 

BLKLMT 

04317 

604305 


JMP 

RPLUSB 

04320 

103165 


JMS 

REPEAT 

04321 

604300 


JMP 

rorsb 

04322 

604400 


JMP 

i 

RORAn 



/TEST 

f 

9 




/READ 

random 

stall test 

04400 



.LOC 

J 

4400 

04400 

204733 

RDRAN 

LAC 

(11 

04401 

044677 


DAC 

TSTNO 

04402 

770415 


law 

• 7363 

04403 

044701 


OAC 

BLKLMT 

04404 

777777 


law 

“1 

04405 

044700 


DAC 

DATA 

04406 

204700 

RANI 

LAC 

DATA 

04407 

740001 


CMA 


04410 

504715 


AND 

(377 

04411 

044700 


OAC 

DATA 

04412 

104431 


JMS 

READ 

04413 

544700 


SAD 

DATA 

04414 

741000 


8KP 


04415 

104437 


JMS 

rorerr 

04416 

444701 


ISZ 

BLKLMT 

04417 

604406 


JMP 

RANI 

04420 

103165 


JMS 

repeat 

04421 

604400 


JMP 

RORAn 

04422 

604423 


JMP 

READY 


.EJECT 


PSB 

/test 6 

/•i024 decimal 


/read Column 

/compare read to good data 
/read error 

/read ranOom stall test 

/TEST 9 


/R^AD COLUMN 

/COMPARE READ TO GOOD DATA 
/READ ERROR 


/test Done 



PAGE 25 PTP15 PTPJ15 

f 

/SET UP FOR another TEST TAPE 


/ 


04423 

700104 

ready rsa 


04424 

700101 

RSF 


04425 

604424 

JMP 

.•I 

04426 

104537 

JMS 

TSTOk 

04427 

740040 

HUT 


04430 

601000 

JHP 

pnskew 


/ 


/ 

/READ SUBROUTINEi C^iT WITH 
/ 


04431 

000000 

READ 0 


04432 

700104 

RSA 


04433 

700101 

Rsr 


04434 

604433 

JMP 

*«1 

04435 

700112 

RRB 


04436 

624431 

JMP* 

/ 

READ 



/ 

/print data 

y 

ERROR 

04437 

000000 

i 

RDRERR 0 


04440 

044706 

OAC 

SAVOAT 

04441 

104462 

JMS 

TEXT 

04442 

104522 

JMS 

TAB 

04443 

204677 

LAC 

TSTNO 

04444 

344734 

TAD 

(260 

04445 

104664 

JMS 

TYRE 

04446 

104522 

JMS 

TAB 

04447 

760240 

LAW 

240 

04450 

104664 

JMS 

TYPE 

04451 

204700 

LAC 

DATA 

04452 

104641 

JMS 

octprt 

04453 

104522 

JMS 

TAB 

04454 

700112 

RRB 


04455 

104641 

JMS 

OCTPRT 

04456 

750004 

LAS 


04457 

740100 

SMA 


04460 

740040 

HLT 


04461 

624437 

JMP* 

rorerr 


.EJECT 


/CUEAR TA^E from reader 


/TYPE done 

/HIT CONTINUE TO PUNCH NEXT TAPE 


IN the aC 


/STORE BAO data 
/TYPE Out ERROR HEADER 
/TYPE Tab 


/type Tab 
/type Space 


/PRINT GOOD data 
/type Tab 

/pRjNT bad data 

/AC SW0*i7 
/NO. halt 
/ rcs, Continue 
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04462 

04463 

04464 

04469 

04466 

04467 

04470 

04471 

04472 

04473 

04474 

04479 

04476 

04477 

04900 

04901 

04902 
04503 
04904 
04909 


04906 

04907 

04910 

04911 

04912 

04913 

04914 


04919 

04916 

04917 

04920 

04921 


04922 

04923 

04924 

04929 

04926 

04927 

04930 

04931 


PTP15 

PTP15 





/print 

ERROR 

J 

header 


000000 

TEXT 

/ 

0 



104479 


JMS 

CRL^ 


104475 


JMS 

CRLf. 


204993 


LAC 

TSTTVP 

/ttpe Test 

104624 


JMS 

INDXll 


204962 


LAC 

GOOD 

/ttpe Good 

104624 


JMS 

INOXll 


204567 


LAC 

BAD 

/ttpe Bad 

104624 


JMS 

INOXil 


104479 


JMS 

CRL^ 


624462 


JMP* 

/ 

TEXt 


000000 

CRLF" 

/ 

0 



760219 


law 

215 

/CM 

700406 


TLS 



700401 


TSF 



604500 


JMP 

. *1 


944504 


SAD 

,*2 


624475 


JMP« 

CRL^ 


760212 


law 

212 

/lp 

604477 


JMP 

CRL^*2 



/REMOVE 

TAPE 

y 

PROM PUNCH 


000000 

REMTXT 

f 

0 



104479 


JMS 

CRL»^ 


104475 


JMS 

CRLP 


204573 


LAC 

RCMfAP 


104624 


JMS 

INOXll 


104479 


JMS 

CRL^ 


624506 


JMP« 

REMTXT 



/REPLACE TAPE 

i 

IN PUNCH 


000000 

REPTXT 

0 



104475 


JMS 

CRL?: 


204603 


LAC 

REPTaP 


104624 


JMS 

INQXll 


624519 


JMP* 

reptxt 



/TYPE TAB 

i 



000000 

TAB 

f 

0 



777774 


law 

«4 


044710 


OAC 

TEMPI 


760240 


LAW 

240 


104664 


jMS 

TYPE 


444710 


ISZ 

TEMPI 


604925 


jMP 

1 *3 


624522 


JMP* 

TAB 




.EJECT 




PACE 27 PTP15 PTP15 

/ 


/NO mark character 
/ 


04532 

104475 

noreao jms 

CRL^ 

04533 

204613 

LAC 

nomark 

04534 

104624 

JMS 

INOXH 

04535 

740040 

HLT 


04536 

603400 

JMP 

/ 

RpSKEW 


/ 


/type oonc 
/ 


04537 

000000 

TSTOK 0 




04540 

104475 

JMS 

CRLf 



04541 

760304 

law 

304 



04542 

104664 

JMS 

TYRE 



04543 

760317 

LAW 

317 



04544 

104664 

JMS 

TYRE 



04545 

760316 

law 

316 



04646 

104664 

JMS 

TYRE 



04547 

760305 

law 

305’ 



04550 

104664 

JMS 

TYRE 



04551 

104475 

JMS 

crlE 



04552 

624537 

JMP« 

t 

tstok 





/ 

/constants for 

y 

TEST N0, 



04553 

004553 

r 

TSTTYP , 




04554 

305324 

305324 



ft T 

04555 

324323 

324323 



/T S 

04556 

316240 

316240 



/Ni 

04557 

256260 

256260 



/,iO 

04560 

240240 

240240 



/SRACE 

04561 

000000 

000000 

/ 






/ 

/constants for 
/ 

GOOO 



04562 

004562 

f 

GOOD , 




04563 

317307 

317307 



/OfG 

04564 

304317 

304317 



/OiO 

04565 

240240 

240240 



/SRACE 

04566 

000000 

000000 

/ 






/ 

/CONSTANTS FOR 

BAD 



04567 

004567 

BAD . 




04570 

302240 

302240 


/B, 


04571 

304301 

304301 


/DiA 


04572 

000000 

000000 





.eject 
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PTP15 

PTP15 

/ 

/constants for 

f 

REMOVE TAPE 

04573 

004573 

RENTAP 1 


04574 

309322 

305322 

/EiR 

04575 

317315 

317319 

/OiM 

04576 

309726 

305326 

/EiV 

04577 

324240 

324240 

/Ti 

04600 

320301 

320301 

/P 1 A 

04601 

240305 

240305 

/ lE 

04602 

000000 

000000 

/ 




/ 

/constants for 

f 

replace Tape 

04603 

004603 

REPTAP , 


04604 

309322 

305322 

/CiR 

04605 

314320 

314320 

/LiP 

04606 

303301 

303301 

/C|A 

04607 

240309 

240305 

/ lE 

04610 

301324 

301324 

/AiT 

04611 

309320 

309320 

/EiP 

04612 

000000 

000000 

/ 

/ 

/constants for 

f 

NO hark Char, 

04613 

004613 

nohark « 


04614 

317316 

317316 

/0#N 

04615 

319240 

319240 

/Ml 

04616 

322301 

322301 

/R 1 A 

04617 

240313 

240313 

/ iK 

04620 

310303 

310303 

/HiC 

04621 

322301 

322301 

/Ri A 

04622 

000296 

000256 

/ 1 1 

04623 

000000 

000000 

/ 


04624 

000000 

/ 

INOXll 0 


04625 

040011 

OAC 

11 

04626 

220011 

lac« 

11 

04627 

741200 

SNA 


04630 

624624 

JMP« 

INQXll 

04631 

104664 

JHS 

TYPE 

04632 

742020 

RTR 


04633 

742020 

rtr 


04634 

742020 

RTR 


04635 

742020 

RTR 


04636 

740020 

RAR 


04637 

104664 

JMS 

TYPE 

04640 

604626 

JMP 

.EJECT 

IN0Xll*2 
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/ 

/set up numbers to be printed 
/ 


04641 

000000 

octprt 

0 


04642 

044707 


OAC 

SAVNUM 

04643 

04644 
04649 
04646 

742020 

742020 

742020 

904721 


RTR 

RTR 

RTR 

AND 

(7 

04647 

344734 


TAD 

(260 

04650 

104664 


JMS 

type 

04651 

204707 


UAC 

SAVNUM 

04652 

04653 
04694 

742020 

740020 

904721 


RTR 

RAR 

AND 

(7 

04699 

344734 


TAD 

(260 

04696 

104664 


JMS 

TYPE 

04697 

204707 


lAC 

SAVNUM 

04660 

904721 


AND 

<7 

04661 

344734 


TAD 

(260 

04662 

104664 


JMS 

type 

04663 

624641 


JMP« 

A 

octprt 

04664 

000000 

/ppint 

TYPE 

CHARACTER 

/ 

0 

04669 

04666 

04667 

700406 

^00401 

604666 


TtS 

Tsr 

JMP 

.•1 

04670 

624664 


JMP« 

type 

04671 

745217 

RANA 

743217 


04672 

340221 

RANB 

340221 


04673 

000000 

STORE 

0 


04674 

000000 

bustor 

0 


04679 

000000 

leocnt 

0 


04676 

000000 

OATSTR 

0 


04677 

000000 

TSTNO 

0 


04700 

000000 

DATA 

0 


04701 

000000 

blklmt 

0 


04702 

000000 

Bt.KLM2 

0 


04703 

000000 

chacnt 

0 


04704 

000000 

patcnt 

0 


04705 

000000 

patcrn 

0 


04706 

000000 

savdat 

0 


04707 

000000 

SAVNUM 

0 


04710 

000000 

TEMPI 

0 



.EJECT 



30 

PTP15 

PTP15 


000000 


04711 

100000 

•L 

04712 

000400 

•L 

04713 

000001 

•L 

04714 

000200 

•L 

04715 

000377 

*L 

04716 

740010 

*L 

04717 

740020 

•L 

04720 

000376 

•L 

04721 

000007 

*L 

04722 

007777 

•L 

04723 

037777 

•L 

04724 

000002 

•L 

04725 

000003 

•L 

04726 

000004 

*L 

04727 

000009 

*L 

04730 

000006 

•L 

04731 

000010 

•L 

04732 

000077 

•L 

04733 

000011 


04734 

000260 

•L 


S!SC«04735 


,END 


NO error lines 



